home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / gnu_st.lha / gnu_st / smalltalk-1.1.1 / stix / Atom.st < prev    next >
Text File  |  1991-09-12  |  3KB  |  94 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23.  
  24. "
  25. |     Change Log
  26. | ============================================================================
  27. | Author       Date       Change 
  28. | sbyrne     24 May 90      created.
  29. |
  30. "
  31.  
  32. Object subclass: #Atom
  33.     instanceVariableNames: 'id'
  34.     classVariableNames: 'AtomNames'
  35.     poolDictionaries: ''
  36.     category: 'X window attributes'
  37. !
  38.     
  39. !Symbol methodsFor: 'Atom mapping'!
  40.  
  41. mapToId
  42.     ^(Atom symbolMap: self) mapToId
  43.  
  44. !!
  45.  
  46. !Atom class methodsFor: 'initialization'!
  47.  
  48. initialize
  49.     | names i |
  50.     AtomNames _ Dictionary new.    
  51.     names _ #(Primary Secondary Arc Atom Bitmap Cardinal Colormap Cursor CutBuffer0
  52.           CutBuffer1 CutBuffer2 CutBuffer3 CutBuffer4 CutBuffer5 CutBuffer6
  53.           CutBuffer7 Drawable Font Integer Pixmap Point Rectangle ResourceManager
  54.           RGBColorMap RGBBestMap RGBBlueMap RGBDefaultMap RGBGrayMap RGBGreenMap
  55.           RGBRedMap String Visualid Window WmCommand WmHints WmClientMachine
  56.           WmIconName WmIconSize WmName WmNormalHints WmSizeHints WmZoomHints
  57.           MemSpace NormSpace MaxSpace EndSpace SuperscriptX SuperscriptY
  58.           SubstriptX SubscriptY UnderlinePosition UnderlineThickness
  59.           StrikeoutAscent StrikeoutDescent ItalicAngle XHeight QuadWidth
  60.           Weight PointSize Resolution Copyright Notice FontName FamilyName
  61.           FullName CapHeight WmClass WmTransientFor).
  62.     i _ 1.
  63.     names do: 
  64.     [ :name | AtomNames at: name put: (Atom new: i).
  65.           i _ i + 1 ].
  66. !
  67.  
  68. new: anId
  69.     ^self new init: anId
  70. !!
  71.     
  72. !Atom class methodsFor: 'accessing'!
  73.  
  74. symbolMap: anAtomId
  75.     ^AtomNames at: anAtomId
  76. !!
  77.  
  78.  
  79. !Atom methodsFor: 'accessing'!
  80.  
  81. mapToId
  82.     ^id
  83. !!
  84.  
  85. !Atom methodsFor: 'private'!
  86.  
  87. init: anId
  88.     id _ anId
  89. !!
  90.  
  91. Atom initialize!
  92.  
  93.  
  94.